use List::Util qw(shuffle); 

my @numbers = (0,'A',1,2,3,4,5,6,7,8,9,10,'J','Q','K');
my %cards; #hash of arrays
my ($person, $group, $number) = (0,0,0);
my %game;  # hash of ( hash of array )

srand;

#shuffle the cards
for $group qw(spade hearts clubs diamonds) 
{
    $cards{$group} = [ shuffle(1..13) ];
}
